AmigActive 22

home *** CD-ROM | disk | FTP | other *** search

/ AmigActive 22 / AACD 22.iso / AACD / Programming / Emperor_v4.0 / Emperor / Projects / automate8e.c < prev next >

Wrap

C/C++ Source or Header | 2001-05-05 | 142.7 KB | 1,952 lines

/* code was generated by Emperor */ #define CATCOMP_NUMBERS #define CATCOMP_STRINGS #define ALL_REACTION_CLASSES #define ALL_REACTION_MACROS #include <stdio.h> #include <stdlib.h> #include <string.h> #include <clib/alib_protos.h> #include <clib/asl_protos.h> #include <clib/dos_protos.h> #include <clib/exec_protos.h> #include <clib/gadtools_protos.h> #include <clib/graphics_protos.h> #include <clib/intuition_protos.h> #include <clib/locale_protos.h> #include <clib/utility_protos.h> #include <clib/wb_protos.h> #include <clib/colorwheel_protos.h> #include <clib/datebrowser_protos.h> #include <clib/resource_protos.h> #include <clib/texteditor_protos.h> #include <gadgets/colorwheel.h> #include <gadgets/datebrowser.h> #include <gadgets/gradientslider.h> #include <gadgets/tapedeck.h> #include <gadgets/texteditor.h> #include <proto/texteditor.h> #include <intuition/gadgetclass.h> #include <intuition/icclass.h> #include <intuition/imageclass.h> #include <reaction/reaction.h> #include <workbench/startup.h> #include <wbstartup.h> #include <StormC:Include/time.h> #include <StormC:Include/math.h> #define TapeDeckObject NewObject(NULL, "tapedeck.gadget" #define TextEditorObject NewObject(TEXTEDITOR_GetClass(), NULL #define LOCALE_WINDOW_TITLE1 GetCatalogStr(Catalog, 0, "Tiger") #define LOCALE_SCREEN_TITLE1 GetCatalogStr(Catalog, 1, "Tiger version 1.x, by Olivier Martin") #define LOCALE_ICONIFIED_TITLE1 GetCatalogStr(Catalog, 2, "Tiger") #define LOCALE_MENU_PROJECT1 GetCatalogStr(Catalog, 3, "Project") #define LOCALE_MENU_INFO1 GetCatalogStr(Catalog, 4, "Information") #define LOCALE_MENU_QUIT1 GetCatalogStr(Catalog, 5, "Quit") #define LOCALE_REQUEST_INFO_TITLE1 GetCatalogStr(Catalog, 6, "Program information") #define LOCALE_REQUEST_INFO_BODY1 GetCatalogStr(Catalog, 7, "Tiger, a cellular automata, may 2001\n GUI built with Emperor") #define LOCALE_REQUEST_INFO_GADGET1 GetCatalogStr(Catalog, 8, "Okay") #define LOCALE_SLIDER1_LABEL GetCatalogStr(Catalog, 9, "zoom level") #define LOCALE_STRING1_LABEL GetCatalogStr(Catalog, 10, "slope [%]") #define LOCALE_INTEGER1_LABEL GetCatalogStr(Catalog, 11, "rainfall [mm/year]") #define LOCALE_INTEGER2_LABEL GetCatalogStr(Catalog, 12, "termite-hills") #define LOCALE_INTEGER3_LABEL GetCatalogStr(Catalog, 13, "radius [m]") #define LOCALE_INTEGER4_LABEL GetCatalogStr(Catalog, 14, "x size") #define LOCALE_INTEGER5_LABEL GetCatalogStr(Catalog, 15, "y size") #define LOCALE_INTEGER6_LABEL GetCatalogStr(Catalog, 16, "generations") #define LOCALE_CHECKBOX1_LABEL GetCatalogStr(Catalog, 17, "Save DEM") #define LOCALE_BUTTON1_LABEL GetCatalogStr(Catalog, 18, "Go") #define LOCALE_BUTTON2_LABEL GetCatalogStr(Catalog, 19, "Default values") #define LOCALE_VERTICAL_LAYOUT3 GetCatalogStr(Catalog, 20, "Ecological variables") #define LOCALE_VERTICAL_LAYOUT4 GetCatalogStr(Catalog, 21, "Simulation size") #define LOCALE_ANIMATION_LABEL GetCatalogStr(Catalog, 22, "Animation control") #define LOCALE_BUTTON3_LABEL GetCatalogStr(Catalog, 23, "Pause") #define LOCALE_BUTTON6_LABEL GetCatalogStr(Catalog, 24, "Close") #define LOCALE_BUTTON7_LABEL GetCatalogStr(Catalog, 25, "Rewind") #define LOCALE_BUTTON8_LABEL GetCatalogStr(Catalog, 26, "Forward") #define LOCALE_CHECKBOX2_LABEL GetCatalogStr(Catalog, 27, "Display during computation") #define Layout1 Gadget1[1] #define Layout2 Gadget1[2] #define Layout3 Gadget1[3] #define String1 Gadget1[4] #define Label1 Gadget1[5] #define Integer1 Gadget1[6] #define Label2 Gadget1[7] #define Integer2 Gadget1[8] #define Label3 Gadget1[9] #define Integer3 Gadget1[10] #define Label4 Gadget1[11] #define Space1 Gadget1[12] #define Layout4 Gadget1[13] #define Layout8 Gadget1[14] #define Space7 Gadget1[15] #define Integer4 Gadget1[16] #define Label5 Gadget1[17] #define Layout12 Gadget1[18] #define Space8 Gadget1[19] #define Integer5 Gadget1[20] #define Label6 Gadget1[21] #define Layout13 Gadget1[22] #define Space9 Gadget1[23] #define Integer6 Gadget1[24] #define Label7 Gadget1[25] #define Checkbox1 Gadget1[26] #define Checkbox2 Gadget1[27] #define Layout5 Gadget1[28] #define Space6 Gadget1[29] #define Slider1 Gadget1[30] #define Label8 Gadget1[31] #define Layout14 Gadget1[32] #define String2 Gadget1[33] #define Space2 Gadget1[34] #define Layout6 Gadget1[35] #define Space3 Gadget1[36] #define Button2 Gadget1[37] #define Button1 Gadget1[38] #define Space4 Gadget1[39] #define Space5 Gadget1[40] #define Layout7 Gadget1[41] #define Fuelgauge2 Gadget1[42] #define Fuelgauge3 Gadget1[43] #define Layout9 Gadget1[44] #define Layout10 Gadget1[45] #define Button3 Gadget1[46] #define Space10 Gadget1[47] #define Button6 Gadget1[48] #define Layout11 Gadget1[49] #define Space11 Gadget1[50] #define Button7 Gadget1[51] #define Button8 Gadget1[52] #define Space12 Gadget1[53] #define Menu_Project2 65504 #define Menu_Information1 63488 #define Menu_Quit1 63552 BYTE Emperor_Gadgetkind1[] = { 0, 12, 12, 12, 20, 26, 11, 26, 11, 26, 11, 26, 18, 12, 12, 18, 11, 26, 12, 18, 11, 26, 12, 18, 11, 26, 1, 1, 12, 18, 17, 26, 12, 20, 18, 12, 18, 0, 0, 18, 18, 12, 6, 6, 12, 12, 0, 18, 0, 12, 18, 0, 0, 18, -1 }; LONG Inforequest1(void); void String1_GadgetUp_Event(void); void Integer1_GadgetUp_Event(void); void Integer2_GadgetUp_Event(void); void Integer3_GadgetUp_Event(void); void Integer4_GadgetUp_Event(void); void Integer5_GadgetUp_Event(void); void Integer6_GadgetUp_Event(void); void Checkbox1_GadgetUp_Event(void); void Checkbox2_GadgetUp_Event(void); void Slider1_GadgetUp_Event(void); void Button2_GadgetUp_Event(void); void Button1_GadgetUp_Event(void); void Button3_GadgetUp_Event(void); void Button6_GadgetUp_Event(void); void Button7_GadgetUp_Event(void); void Button8_GadgetUp_Event(void); void Menu_Information1_MenuPick_Event(void); void Menu_Quit1_MenuPick_Event(void); void Window1_CloseWindow_Event(void); void Window1_Iconify_Event(void); void Window1_Uniconify_Event(void); void Window1_ShowWindow_Event(void); void Startup(void); void Shutdown(void); BOOL Emperor_InitProgram(void); void Emperor_QuitProgram(void); void Emperor_CloseWindow_Window1(void); void Emperor_IconifyWindow_Window1(void); struct Window *Emperor_OpenWindow_Window1(void); struct Window *Emperor_UniconifyWindow_Window1(void); BOOL Emperor_GetMenuItemAttr(UWORD, UWORD); void Emperor_SetMenuItemAttr(UWORD, UWORD, BOOL); STRPTR Emperor_GetGadgetAttr(struct Gadget *); void Emperor_SetGadgetAttr(struct Gadget *, STRPTR); STRPTR Emperor_GetGadgetAttrComplex(struct Gadget *, ULONG); void Emperor_SetGadgetAttrComplex(struct Gadget *, ULONG, STRPTR); BOOL Emperor_GetGadgetDisabledAttr(struct Gadget *); void Emperor_SetGadgetDisabledAttr(struct Gadget *, BOOL); BOOL Emperor_GetGadgetReadOnlyAttr(struct Gadget *); void Emperor_SetGadgetReadOnlyAttr(struct Gadget *, BOOL); void Emperor_ActivateGadget(struct Gadget *); void Emperor_RethinkLayout(struct Gadget *); void Emperor_RefreshGList(struct Gadget *, WORD); void Emperor_ChangeWindowPosition(struct Window *, WORD, WORD); void Emperor_ChangeWindowSize(struct Window *, WORD, WORD); void Emperor_SetWindowBusyPointer(struct Window *, BOOL); void Emperor_SetWindowTitle(struct Window *, STRPTR); void Emperor_SetScreenTitle(struct Window *, STRPTR); void Emperor_AllocChooserNode(struct List *, char **, WORD *); void Emperor_AllocClicktabNode(struct List *, char **, WORD *); void Emperor_AllocListbrowserNode(struct List *, char **, WORD *); void Emperor_AllocRadiobuttonNode(struct List *, char **, WORD *); ULONG stringlength(STRPTR buffer); LONG stringtoint(STRPTR); DOUBLE stringtofloat(STRPTR); STRPTR inttostring(LONG); struct Library *IntuitionBase = NULL; struct Library *LocaleBase = NULL; struct Library *GadToolsBase = NULL; struct Library *ASLBase = NULL; struct Library *DOSLibBase = NULL; struct Library *ResourceBase = NULL; struct Library *WindowBase = NULL; struct Library *RequesterBase = NULL; struct Library *ButtonBase = NULL; struct Library *CheckBoxBase = NULL; struct Library *ChooserBase = NULL; struct Library *ClickTabBase = NULL; struct Library *ColorWheelBase = NULL; struct Library *DateBrowserBase = NULL; struct Library *FuelGaugeBase = NULL; struct Library *GetFileBase = NULL; struct Library *GetFontBase = NULL; struct Library *GetScreenModeBase = NULL; struct Library *GradientSliderBase = NULL; struct Library *IntegerBase = NULL; struct Library *LayoutBase = NULL; struct Library *ListBrowserBase = NULL; struct Library *PaletteBase = NULL; struct Library *RadioButtonBase = NULL; struct Library *ScrollerBase = NULL; struct Library *SliderBase = NULL; struct Library *SpaceBase = NULL; struct Library *SpeedBarBase = NULL; struct Library *StringBase = NULL; struct Library *TapeDeckBase = NULL; struct Library *TextEditorBase = NULL; struct Library *BevelBase = NULL; struct Library *BitMapBase = NULL; struct Library *GlyphBase = NULL; struct Library *LabelBase = NULL; struct NewMenu NewMenu[] = { { NM_TITLE, 0, 0, 0, 0, 0 }, { NM_ITEM, 0, "I", 0, 0, 0 }, { NM_ITEM, NM_BARLABEL, 0, 0, 0, 0 }, { NM_ITEM, 0, "Q", 0, 0, 0 }, { NM_END, 0, 0, 0, 0, 0 } }; void *vinfo = NULL; BOOL os35 = TRUE; BOOL terminated = FALSE; ULONG WindowSignals1 = 0L; Object *WindowObject1 = NULL; struct Catalog *Catalog = NULL; struct Gadget *Gadget1[54]; struct Menu *Menu = NULL; struct MsgPort *AppPort = NULL; struct MsgPort *MsgPort = NULL; struct Screen *Screen1 = NULL; struct Window *Window1 = NULL; const char VERSION[] = "$VER: automate8e 1.249 (11-Mar-2001)"; const char AUTHOR[] = "Olivier Martin"; /* global variables declarations */ WORD pluie = 0; WORD rayon = 0; WORD termite = 0; WORD imax = 0; WORD kmax = 0; WORD jmax = 0; FLOAT pente = 0; WORD zoom = 0; BOOL previsual = FALSE; BOOL MNA = FALSE; ULONG Emperor_Input, Emperor_Code; void main(void) { BYTE Emperor_Exception = 0; char Emperor_ExceptionString[300]; struct EasyStruct EmperorRequest_InitializationErrorRequest; struct IntuiMessage *IntuiMessage = NULL; struct Gadget *GadgetMessage = NULL; Emperor_Input = 0L; Emperor_Code = 0L; if(!Emperor_InitProgram()) { Screen1 = LockPubScreen(NULL); if(Screen1) { vinfo = GetVisualInfo(Screen1, TAG_DONE); if(vinfo) { NewMenu[0].nm_Label = LOCALE_MENU_PROJECT1; NewMenu[1].nm_Label = LOCALE_MENU_INFO1; NewMenu[2].nm_Label = NM_BARLABEL; NewMenu[3].nm_Label = LOCALE_MENU_QUIT1; Menu = CreateMenus(NewMenu, GTMN_FullMenu, TRUE, TAG_DONE); if(Menu) { LayoutMenus(Menu, vinfo, GTMN_FrontPen, 0, TAG_DONE); AppPort = CreateMsgPort(); if(AppPort) { MsgPort = CreatePort("noname_Port", 0); if(MsgPort) { if(os35) { WindowObject1 = (Object *) WindowObject, WA_Left, 0, WA_Top, 266, WA_Width, 200, WA_Height, 250, WA_DragBar, TRUE, WA_DepthGadget, TRUE, WA_CloseGadget, TRUE, WA_Activate, TRUE, WA_AutoAdjust, TRUE, WA_IDCMP, IDCMP_GADGETDOWN | IDCMP_GADGETUP | IDCMP_GADGETHELP | IDCMP_MENUPICK | IDCMP_MENUHELP | IDCMP_CLOSEWINDOW | IDCMP_ACTIVEWINDOW | IDCMP_INACTIVEWINDOW | IDCMP_RAWKEY | IDCMP_VANILLAKEY | IDCMP_MOUSEBUTTONS | IDCMP_MOUSEMOVE | IDCMP_NEWSIZE | IDCMP_CHANGEWINDOW | IDCMP_SIZEVERIFY | IDCMP_REFRESHWINDOW | IDCMP_INTUITICKS, WA_MinWidth, 0, WA_MinHeight, 0, WA_MaxWidth, 0, WA_MaxHeight, 0, WA_Title, LOCALE_WINDOW_TITLE1, WA_ScreenTitle, LOCALE_SCREEN_TITLE1, WA_PubScreen, Screen1, WINDOW_GadgetHelp, TRUE, WINDOW_IconifyGadget, TRUE, WINDOW_IconTitle, LOCALE_ICONIFIED_TITLE1, WINDOW_AppPort, AppPort, WINDOW_ParentGroup, (Object *) Gadget1[0] = (Object *) VGroupObject, LAYOUT_SpaceOuter, TRUE, LAYOUT_DeferLayout, TRUE, LAYOUT_AddChild, (Object *) Gadget1[1] = (Object *) LayoutObject, GA_ID, 0, GA_RelVerify, TRUE, GA_GadgetHelp, TRUE, LAYOUT_Label, "", LAYOUT_Orientation, 1, LAYOUT_LeftSpacing, 5, LAYOUT_TopSpacing, 5, LAYOUT_BottomSpacing, 5, LAYOUT_RightSpacing, 5, LAYOUT_InnerSpacing, 5, LAYOUT_HorizAlignment, LALIGN_LEFT, LAYOUT_VertAlignment, LALIGN_TOP, LAYOUT_LabelPlace, BVJ_TOP_LEFT, LAYOUT_BevelState, IDS_NORMAL, LAYOUT_BevelStyle, 4, LAYOUT_AddChild, (Object *) Gadget1[2] = (Object *) LayoutObject, GA_ID, 1, GA_RelVerify, TRUE, GA_GadgetHelp, TRUE, LAYOUT_Label, "", LAYOUT_Orientation, 0, LAYOUT_HorizAlignment, LALIGN_LEFT, LAYOUT_VertAlignment, LALIGN_TOP, LAYOUT_LabelPlace, BVJ_TOP_LEFT, LAYOUT_BevelState, IDS_NORMAL, LAYOUT_BevelStyle, 4, LAYOUT_AddChild, (Object *) Gadget1[3] = (Object *) LayoutObject, GA_ID, 2, GA_RelVerify, TRUE, GA_GadgetHelp, TRUE, LAYOUT_Label, LOCALE_VERTICAL_LAYOUT3, LAYOUT_Orientation, 1, LAYOUT_LeftSpacing, 5, LAYOUT_TopSpacing, 5, LAYOUT_BottomSpacing, 5, LAYOUT_RightSpacing, 5, LAYOUT_InnerSpacing, 5, LAYOUT_HorizAlignment, LALIGN_LEFT, LAYOUT_VertAlignment, LALIGN_TOP, LAYOUT_LabelPlace, BVJ_TOP_LEFT, LAYOUT_BevelState, IDS_NORMAL, LAYOUT_BevelStyle, 2, LAYOUT_SpaceInner, TRUE, LAYOUT_AddChild, (Object *) Gadget1[4] = (Object *) StringObject, GA_ID, 3, GA_RelVerify, TRUE, GA_GadgetHelp, TRUE, GA_TabCycle, TRUE, STRINGA_TextVal, "0.4", STRINGA_MaxChars, 20, STRINGA_Justification, GACT_STRINGLEFT, STRINGA_MinVisible, 0, STRINGA_HookType, SHK_CUSTOM, End, CHILD_Label, (Object *) Gadget1[5] = (Object *) LabelObject, LABEL_Justification, 0, LABEL_Text, LOCALE_STRING1_LABEL, End, LAYOUT_AddChild, (Object *) Gadget1[6] = (Object *) IntegerObject, GA_ID, 5, GA_RelVerify, TRUE, GA_GadgetHelp, TRUE, GA_TabCycle, TRUE, INTEGER_Number, 450, INTEGER_MaxChars, 10, INTEGER_Minimum, 0, INTEGER_Maximum, 900, INTEGER_MinVisible, 0, INTEGER_Arrows, TRUE, STRINGA_Justification, GACT_STRINGLEFT, End, CHILD_Label, (Object *) Gadget1[7] = (Object *) LabelObject, LABEL_Justification, 0, LABEL_Text, LOCALE_INTEGER1_LABEL, End, LAYOUT_AddChild, (Object *) Gadget1[8] = (Object *) IntegerObject, GA_ID, 7, GA_RelVerify, TRUE, GA_GadgetHelp, TRUE, GA_TabCycle, TRUE, INTEGER_Number, 0, INTEGER_MaxChars, 10, INTEGER_Minimum, 0, INTEGER_Maximum, 100, INTEGER_MinVisible, 0, INTEGER_Arrows, TRUE, STRINGA_Justification, GACT_STRINGLEFT, End, CHILD_Label, (Object *) Gadget1[9] = (Object *) LabelObject, LABEL_Justification, 0, LABEL_Text, LOCALE_INTEGER2_LABEL, End, LAYOUT_AddChild, (Object *) Gadget1[10] = (Object *) IntegerObject, GA_ID, 9, GA_RelVerify, TRUE, GA_GadgetHelp, TRUE, GA_TabCycle, TRUE, INTEGER_Number, 0, INTEGER_MaxChars, 10, INTEGER_Minimum, 0, INTEGER_Maximum, 10, INTEGER_MinVisible, 0, INTEGER_Arrows, TRUE, STRINGA_Justification, GACT_STRINGLEFT, End, CHILD_Label, (Object *) Gadget1[11] = (Object *) LabelObject, LABEL_Justification, 0, LABEL_Text, LOCALE_INTEGER3_LABEL, End, End, LAYOUT_AddChild, (Object *) Gadget1[12] = (Object *) SpaceObject, GA_ID, 11, GA_RelVerify, TRUE, GA_GadgetHelp, TRUE, End, LAYOUT_AddChild, (Object *) Gadget1[13] = (Object *) LayoutObject, GA_ID, 12, GA_RelVerify, TRUE, GA_GadgetHelp, TRUE, LAYOUT_Label, LOCALE_VERTICAL_LAYOUT4, LAYOUT_Orientation, 1, LAYOUT_LeftSpacing, 5, LAYOUT_TopSpacing, 5, LAYOUT_BottomSpacing, 5, LAYOUT_RightSpacing, 5, LAYOUT_InnerSpacing, 5, LAYOUT_HorizAlignment, LALIGN_LEFT, LAYOUT_VertAlignment, LALIGN_TOP, LAYOUT_LabelPlace, BVJ_TOP_LEFT, LAYOUT_BevelState, IDS_NORMAL, LAYOUT_BevelStyle, 2, LAYOUT_SpaceInner, TRUE, LAYOUT_AddChild, (Object *) Gadget1[14] = (Object *) LayoutObject, GA_ID, 48, GA_RelVerify, TRUE, GA_GadgetHelp, TRUE, LAYOUT_Label, "", LAYOUT_Orientation, 0, LAYOUT_HorizAlignment, LALIGN_LEFT, LAYOUT_VertAlignment, LALIGN_TOP, LAYOUT_LabelPlace, BVJ_TOP_LEFT, LAYOUT_BevelState, IDS_NORMAL, LAYOUT_BevelStyle, 4, LAYOUT_AddChild, (Object *) Gadget1[15] = (Object *) SpaceObject, GA_ID, 47, GA_RelVerify, TRUE, GA_GadgetHelp, TRUE, End, LAYOUT_AddChild, (Object *) Gadget1[16] = (Object *) IntegerObject, GA_ID, 13, GA_RelVerify, TRUE, GA_GadgetHelp, TRUE, GA_TabCycle, TRUE, INTEGER_Number, 40, INTEGER_MaxChars, 10, INTEGER_Minimum, 30, INTEGER_Maximum, 300, INTEGER_MinVisible, 0, INTEGER_Arrows, TRUE, STRINGA_Justification, GACT_STRINGLEFT, End, CHILD_Label, (Object *) Gadget1[17] = (Object *) LabelObject, LABEL_Justification, 0, LABEL_Text, LOCALE_INTEGER4_LABEL, End, End, LAYOUT_AddChild, (Object *) Gadget1[18] = (Object *) LayoutObject, GA_ID, 49, GA_RelVerify, TRUE, GA_GadgetHelp, TRUE, LAYOUT_Label, "", LAYOUT_Orientation, 0, LAYOUT_HorizAlignment, LALIGN_LEFT, LAYOUT_VertAlignment, LALIGN_TOP, LAYOUT_LabelPlace, BVJ_TOP_LEFT, LAYOUT_BevelState, IDS_NORMAL, LAYOUT_BevelStyle, 4, LAYOUT_AddChild, (Object *) Gadget1[19] = (Object *) SpaceObject, GA_ID, 50, GA_RelVerify, TRUE, GA_GadgetHelp, TRUE, End, LAYOUT_AddChild, (Object *) Gadget1[20] = (Object *) IntegerObject, GA_ID, 15, GA_RelVerify, TRUE, GA_GadgetHelp, TRUE, GA_TabCycle, TRUE, INTEGER_Number, 40, INTEGER_MaxChars, 10, INTEGER_Minimum, 30, INTEGER_Maximum, 300, INTEGER_MinVisible, 0, INTEGER_Arrows, TRUE, STRINGA_Justification, GACT_STRINGLEFT, End, CHILD_Label, (Object *) Gadget1[21] = (Object *) LabelObject, LABEL_Justification, 0, LABEL_Text, LOCALE_INTEGER5_LABEL, End, End, LAYOUT_AddChild, (Object *) Gadget1[22] = (Object *) LayoutObject, GA_ID, 51, GA_RelVerify, TRUE, GA_GadgetHelp, TRUE, LAYOUT_Label, "", LAYOUT_Orientation, 0, LAYOUT_HorizAlignment, LALIGN_LEFT, LAYOUT_VertAlignment, LALIGN_TOP, LAYOUT_LabelPlace, BVJ_TOP_LEFT, LAYOUT_BevelState, IDS_NORMAL, LAYOUT_BevelStyle, 4, LAYOUT_AddChild, (Object *) Gadget1[23] = (Object *) SpaceObject, GA_ID, 52, GA_RelVerify, TRUE, GA_GadgetHelp, TRUE, End, LAYOUT_AddChild, (Object *) Gadget1[24] = (Object *) IntegerObject, GA_ID, 17, GA_RelVerify, TRUE, GA_GadgetHelp, TRUE, GA_TabCycle, TRUE, INTEGER_Number, 5, INTEGER_MaxChars, 10, INTEGER_Minimum, 1, INTEGER_Maximum, 150, INTEGER_MinVisible, 0, INTEGER_Arrows, TRUE, STRINGA_Justification, GACT_STRINGLEFT, End, CHILD_Label, (Object *) Gadget1[25] = (Object *) LabelObject, LABEL_Justification, 0, LABEL_Text, LOCALE_INTEGER6_LABEL, End, End, LAYOUT_AddChild, (Object *) Gadget1[26] = (Object *) CheckBoxObject, GA_ID, 22, GA_RelVerify, TRUE, GA_GadgetHelp, TRUE, GA_Text, LOCALE_CHECKBOX1_LABEL, CHECKBOX_TextPen, 1, CHECKBOX_FillTextPen, 1, CHECKBOX_BackgroundPen, 0, CHECKBOX_TextPlace, PLACETEXT_RIGHT, End, LAYOUT_AddChild, (Object *) Gadget1[27] = (Object *) CheckBoxObject, GA_ID, 51, GA_RelVerify, TRUE, GA_GadgetHelp, TRUE, GA_Text, LOCALE_CHECKBOX2_LABEL, CHECKBOX_TextPen, 1, CHECKBOX_FillTextPen, 1, CHECKBOX_BackgroundPen, 0, CHECKBOX_TextPlace, PLACETEXT_RIGHT, End, End, End, LAYOUT_AddChild, (Object *) Gadget1[28] = (Object *) LayoutObject, GA_ID, 19, GA_RelVerify, TRUE, GA_GadgetHelp, TRUE, LAYOUT_Label, "", LAYOUT_Orientation, 0, LAYOUT_LeftSpacing, 5, LAYOUT_TopSpacing, 10, LAYOUT_BottomSpacing, 5, LAYOUT_RightSpacing, 5, LAYOUT_InnerSpacing, 5, LAYOUT_HorizAlignment, LALIGN_LEFT, LAYOUT_VertAlignment, LALIGN_TOP, LAYOUT_LabelPlace, BVJ_TOP_LEFT, LAYOUT_BevelState, IDS_NORMAL, LAYOUT_BevelStyle, 4, LAYOUT_AddChild, (Object *) Gadget1[29] = (Object *) SpaceObject, GA_ID, 46, GA_RelVerify, TRUE, GA_GadgetHelp, TRUE, End, LAYOUT_AddChild, (Object *) Gadget1[30] = (Object *) SliderObject, GA_ID, 36, GA_RelVerify, TRUE, GA_GadgetHelp, TRUE, SLIDER_Min, 1, SLIDER_Max, 5, SLIDER_Ticks, 9, SLIDER_TickSize, 5, SLIDER_Level, 1, SLIDER_Orientation, SLIDER_VERTICAL, SLIDER_ShortTicks, TRUE, SLIDER_KnobImage, End, CHILD_Label, (Object *) Gadget1[31] = (Object *) LabelObject, LABEL_Justification, 0, LABEL_Text, LOCALE_SLIDER1_LABEL, End, LAYOUT_AddChild, (Object *) Gadget1[32] = (Object *) LayoutObject, GA_ID, 53, GA_RelVerify, TRUE, GA_GadgetHelp, TRUE, LAYOUT_Label, "", LAYOUT_Orientation, 1, LAYOUT_LeftSpacing, 5, LAYOUT_TopSpacing, 10, LAYOUT_BottomSpacing, 10, LAYOUT_RightSpacing, 5, LAYOUT_HorizAlignment, LALIGN_LEFT, LAYOUT_VertAlignment, LALIGN_TOP, LAYOUT_LabelPlace, BVJ_TOP_LEFT, LAYOUT_BevelState, IDS_NORMAL, LAYOUT_BevelStyle, 4, LAYOUT_AddChild, (Object *) Gadget1[33] = (Object *) StringObject, GA_ID, 37, GA_RelVerify, TRUE, GA_GadgetHelp, TRUE, GA_TabCycle, TRUE, STRINGA_TextVal, "1", STRINGA_MaxChars, 10, STRINGA_Justification, GACT_STRINGLEFT, STRINGA_MinVisible, 2, STRINGA_HookType, SHK_CUSTOM, End, End, LAYOUT_AddChild, (Object *) Gadget1[34] = (Object *) SpaceObject, GA_ID, 20, GA_RelVerify, TRUE, GA_GadgetHelp, TRUE, End, LAYOUT_AddChild, (Object *) Gadget1[35] = (Object *) LayoutObject, GA_ID, 21, GA_RelVerify, TRUE, GA_GadgetHelp, TRUE, LAYOUT_Label, "", LAYOUT_Orientation, 1, LAYOUT_HorizAlignment, LALIGN_LEFT, LAYOUT_VertAlignment, LALIGN_TOP, LAYOUT_LabelPlace, BVJ_TOP_LEFT, LAYOUT_BevelState, IDS_NORMAL, LAYOUT_BevelStyle, 4, LAYOUT_AddChild, (Object *) Gadget1[36] = (Object *) SpaceObject, GA_ID, 23, GA_RelVerify, TRUE, GA_GadgetHelp, TRUE, End, LAYOUT_AddChild, (Object *) Gadget1[37] = (Object *) ButtonObject, GA_ID, 38, GA_RelVerify, TRUE, GA_GadgetHelp, TRUE, GA_Text, LOCALE_BUTTON2_LABEL, BUTTON_Justification, 1, End, LAYOUT_AddChild, (Object *) Gadget1[38] = (Object *) ButtonObject, GA_ID, 24, GA_RelVerify, TRUE, GA_GadgetHelp, TRUE, GA_Text, LOCALE_BUTTON1_LABEL, BUTTON_Justification, 1, End, LAYOUT_AddChild, (Object *) Gadget1[39] = (Object *) SpaceObject, GA_ID, 25, GA_RelVerify, TRUE, GA_GadgetHelp, TRUE, End, End, LAYOUT_AddChild, (Object *) Gadget1[40] = (Object *) SpaceObject, GA_ID, 26, GA_RelVerify, TRUE, GA_GadgetHelp, TRUE, End, End, LAYOUT_AddChild, (Object *) Gadget1[41] = (Object *) LayoutObject, GA_ID, 28, GA_RelVerify, TRUE, GA_GadgetHelp, TRUE, LAYOUT_Label, "", LAYOUT_Orientation, 0, LAYOUT_LeftSpacing, 5, LAYOUT_TopSpacing, 5, LAYOUT_BottomSpacing, 10, LAYOUT_RightSpacing, 5, LAYOUT_InnerSpacing, 5, LAYOUT_HorizAlignment, LALIGN_LEFT, LAYOUT_VertAlignment, LALIGN_TOP, LAYOUT_LabelPlace, BVJ_TOP_LEFT, LAYOUT_BevelState, IDS_NORMAL, LAYOUT_BevelStyle, 4, LAYOUT_AddChild, (Object *) Gadget1[42] = (Object *) FuelGaugeObject, GA_ID, 29, GA_RelVerify, TRUE, GA_GadgetHelp, TRUE, FUELGAUGE_Min, 0, FUELGAUGE_Ticks, 9, FUELGAUGE_Max, 10, FUELGAUGE_TickSize, 5, FUELGAUGE_ShortTicks, 8, FUELGAUGE_Percent, TRUE, FUELGAUGE_Justification, 1, FUELGAUGE_Orientation, 0, End, LAYOUT_AddChild, (Object *) Gadget1[43] = (Object *) FuelGaugeObject, GA_ID, 30, GA_RelVerify, TRUE, GA_GadgetHelp, TRUE, FUELGAUGE_Min, 0, FUELGAUGE_Ticks, 9, FUELGAUGE_Max, 10, FUELGAUGE_TickSize, 5, FUELGAUGE_ShortTicks, 8, FUELGAUGE_Percent, TRUE, FUELGAUGE_Justification, 1, FUELGAUGE_Orientation, 0, End, End, LAYOUT_AddChild, (Object *) Gadget1[44] = (Object *) LayoutObject, GA_ID, 38, GA_RelVerify, TRUE, GA_GadgetHelp, TRUE, LAYOUT_Label, LOCALE_ANIMATION_LABEL, LAYOUT_Orientation, 1, LAYOUT_LeftSpacing, 5, LAYOUT_TopSpacing, 5, LAYOUT_BottomSpacing, 5, LAYOUT_RightSpacing, 5, LAYOUT_InnerSpacing, 5, LAYOUT_HorizAlignment, LALIGN_LEFT, LAYOUT_VertAlignment, LALIGN_TOP, LAYOUT_LabelPlace, BVJ_TOP_LEFT, LAYOUT_BevelState, IDS_NORMAL, LAYOUT_BevelStyle, 2, LAYOUT_SpaceInner, TRUE, LAYOUT_AddChild, (Object *) Gadget1[45] = (Object *) LayoutObject, GA_ID, 43, GA_RelVerify, TRUE, GA_GadgetHelp, TRUE, LAYOUT_Label, "", LAYOUT_Orientation, 0, LAYOUT_HorizAlignment, LALIGN_LEFT, LAYOUT_VertAlignment, LALIGN_TOP, LAYOUT_LabelPlace, BVJ_TOP_LEFT, LAYOUT_BevelState, IDS_NORMAL, LAYOUT_BevelStyle, 4, LAYOUT_AddChild, (Object *) Gadget1[46] = (Object *) ButtonObject, GA_ID, 39, GA_RelVerify, TRUE, GA_GadgetHelp, TRUE, GA_Text, LOCALE_BUTTON3_LABEL, BUTTON_PushButton, TRUE, BUTTON_Justification, 1, End, LAYOUT_AddChild, (Object *) Gadget1[47] = (Object *) SpaceObject, GA_ID, 48, GA_RelVerify, TRUE, GA_GadgetHelp, TRUE, End, LAYOUT_AddChild, (Object *) Gadget1[48] = (Object *) ButtonObject, GA_ID, 42, GA_RelVerify, TRUE, GA_GadgetHelp, TRUE, GA_Text, LOCALE_BUTTON6_LABEL, BUTTON_Justification, 1, End, End, LAYOUT_AddChild, (Object *) Gadget1[49] = (Object *) LayoutObject, GA_ID, 44, GA_RelVerify, TRUE, GA_GadgetHelp, TRUE, LAYOUT_Label, "", LAYOUT_Orientation, 0, LAYOUT_HorizAlignment, LALIGN_LEFT, LAYOUT_VertAlignment, LALIGN_TOP, LAYOUT_LabelPlace, BVJ_TOP_LEFT, LAYOUT_BevelState, IDS_NORMAL, LAYOUT_BevelStyle, 4, LAYOUT_AddChild, (Object *) Gadget1[50] = (Object *) SpaceObject, GA_ID, 49, GA_RelVerify, TRUE, GA_GadgetHelp, TRUE, End, LAYOUT_AddChild, (Object *) Gadget1[51] = (Object *) ButtonObject, GA_ID, 46, GA_RelVerify, TRUE, GA_GadgetHelp, TRUE, GA_Text, LOCALE_BUTTON7_LABEL, BUTTON_Justification, 1, End, LAYOUT_AddChild, (Object *) Gadget1[52] = (Object *) ButtonObject, GA_ID, 47, GA_RelVerify, TRUE, GA_GadgetHelp, TRUE, GA_Text, LOCALE_BUTTON8_LABEL, BUTTON_Justification, 1, End, LAYOUT_AddChild, (Object *) Gadget1[53] = (Object *) SpaceObject, GA_ID, 50, GA_RelVerify, TRUE, GA_GadgetHelp, TRUE, End, End, End, End, EndGroup, EndWindow; } SetProgramName("automate8e"); Startup(); Emperor_OpenWindow_Window1(); while(!terminated) { Wait(WindowSignals1 | WindowSignals1); while((Emperor_Input = RA_HandleInput(WindowObject1, &Emperor_Code)) != WMHI_LASTMSG) { switch(Emperor_Input & WMHI_CLASSMASK) { case WMHI_GADGETUP: switch(Emperor_Input & WMHI_GADGETMASK) { case 3: String1_GadgetUp_Event(); break; case 5: Integer1_GadgetUp_Event(); break; case 7: Integer2_GadgetUp_Event(); break; case 9: Integer3_GadgetUp_Event(); break; case 13: Integer4_GadgetUp_Event(); break; case 15: Integer5_GadgetUp_Event(); break; case 17: Integer6_GadgetUp_Event(); break; case 22: Checkbox1_GadgetUp_Event(); break; case 51: Checkbox2_GadgetUp_Event(); break; case 36: Slider1_GadgetUp_Event(); break; case 38: Button2_GadgetUp_Event(); break; case 24: Button1_GadgetUp_Event(); break; case 39: Button3_GadgetUp_Event(); break; case 42: Button6_GadgetUp_Event(); break; case 46: Button7_GadgetUp_Event(); break; case 47: Button8_GadgetUp_Event(); break; default: break; } break; case WMHI_GADGETHELP: switch(Emperor_Input & WMHI_GADGETMASK) { default: break; } break; case WMHI_MENUPICK: switch(Emperor_Input & WMHI_MENUMASK) { case Menu_Information1: Menu_Information1_MenuPick_Event(); break; case Menu_Quit1: Menu_Quit1_MenuPick_Event(); break; default: break; } break; case WMHI_MENUHELP: switch(Emperor_Input & WMHI_MENUMASK) { default: break; } break; case WMHI_CLOSEWINDOW: Window1_CloseWindow_Event(); break; case WMHI_ICONIFY: Window1_Iconify_Event(); break; case WMHI_UNICONIFY: Window1_Uniconify_Event(); break; case WMHI_ACTIVE: break; case WMHI_INACTIVE: break; case WMHI_RAWKEY: break; case WMHI_VANILLAKEY: break; case WMHI_MOUSEBUTTONS: break; case WMHI_MOUSEMOVE: break; case WMHI_NEWSIZE: break; case WMHI_CHANGEWINDOW: break; case WMHI_DISPOSEDWINDOW: break; case WMHI_INTUITICK: break; } } } Shutdown(); } else Emperor_Exception = 4; } else Emperor_Exception = 4; } else Emperor_Exception = 3; } else Emperor_Exception = 2; } else Emperor_Exception = 1; } if(Emperor_Exception) { strcpy(Emperor_ExceptionString, "Error during initialization:\n\n"); switch(Emperor_Exception) { case 1: strcat(Emperor_ExceptionString, "Can't lock your public-screen."); break; case 2: strcat(Emperor_ExceptionString, "Can't get visualinfo of your public-screen."); break; case 3: strcat(Emperor_ExceptionString, "Can't create menu."); break; case 4: strcat(Emperor_ExceptionString, "Can't create message-port."); break; } strcat(Emperor_ExceptionString, "\n\nMaybe there isn't enough memory !"); EmperorRequest_InitializationErrorRequest.es_StructSize = sizeof(struct EasyStruct); EmperorRequest_InitializationErrorRequest.es_Flags = 0L; EmperorRequest_InitializationErrorRequest.es_Title = (UBYTE *) "Program error"; EmperorRequest_InitializationErrorRequest.es_TextFormat = (UBYTE *) Emperor_ExceptionString; EmperorRequest_InitializationErrorRequest.es_GadgetFormat = (UBYTE *) "Okay"; EasyRequest(Window1, &EmperorRequest_InitializationErrorRequest, NULL, NULL); } Emperor_QuitProgram(); } void wbmain(struct WBStartup *Emperor_ArgMsg) { main(); } LONG Inforequest1(void) { struct EasyStruct EmperorRequest_Inforequest1; EmperorRequest_Inforequest1.es_StructSize = sizeof(struct EasyStruct); EmperorRequest_Inforequest1.es_Flags = 0L; EmperorRequest_Inforequest1.es_Title = (UBYTE *) LOCALE_REQUEST_INFO_TITLE1; EmperorRequest_Inforequest1.es_TextFormat = (UBYTE *) LOCALE_REQUEST_INFO_BODY1; EmperorRequest_Inforequest1.es_GadgetFormat = (UBYTE *) LOCALE_REQUEST_INFO_GADGET1; return(EasyRequest(Window1, &EmperorRequest_Inforequest1, NULL, NULL)); } BOOL Emperor_InitProgram(void) { UWORD Emperor_InitVar = 0; char Emperor_OccuredError[50], Emperor_ExceptionString[300]; struct EasyStruct EmperorRequest_InitializationErrorRequest; IntuitionBase = OpenLibrary("intuition.library", 0L); if(!IntuitionBase) { Emperor_InitVar = 1; strcpy(Emperor_OccuredError, "intuition.library"); } LocaleBase = OpenLibrary("locale.library", 0L); if(!LocaleBase) { Emperor_InitVar = 1; strcpy(Emperor_OccuredError, "locale.library"); } GadToolsBase = OpenLibrary("gadtools.library", 0L); if(!GadToolsBase) { Emperor_InitVar = 1; strcpy(Emperor_OccuredError, "gadtools.library"); } ASLBase = OpenLibrary("asl.library", 0L); if(!ASLBase) { Emperor_InitVar = 1; strcpy(Emperor_OccuredError, "asl.library"); } DOSLibBase = OpenLibrary("dos.library", 0L); if(!DOSLibBase) { Emperor_InitVar = 1; strcpy(Emperor_OccuredError, "dos.library"); } ResourceBase = OpenLibrary("resource.library", 0L); if(!ResourceBase) { Emperor_InitVar = 1; strcpy(Emperor_OccuredError, "resource.library"); } WindowBase = OpenLibrary("window.class", 0L); if(!WindowBase) { Emperor_InitVar = 1; strcpy(Emperor_OccuredError, "window.class"); } RequesterBase = OpenLibrary("requester.class", 0L); if(!RequesterBase) { Emperor_InitVar = 1; strcpy(Emperor_OccuredError, "requester.class"); } ButtonBase = OpenLibrary("gadgets/button.gadget", 0L); if(!ButtonBase) { Emperor_InitVar = 1; strcpy(Emperor_OccuredError, "gadgets/button.gadget"); } CheckBoxBase = OpenLibrary("gadgets/checkbox.gadget", 0L); if(!CheckBoxBase) { Emperor_InitVar = 1; strcpy(Emperor_OccuredError, "gadgets/checkbox.gadget"); } ChooserBase = OpenLibrary("gadgets/chooser.gadget", 0L); if(!ChooserBase) { Emperor_InitVar = 1; strcpy(Emperor_OccuredError, "gadgets/chooser.gadget"); } ClickTabBase = OpenLibrary("gadgets/clicktab.gadget", 0L); if(!ClickTabBase) { Emperor_InitVar = 1; strcpy(Emperor_OccuredError, "gadgets/clicktab.gadget"); } ColorWheelBase = OpenLibrary("gadgets/colorwheel.gadget", 0L); if(!ColorWheelBase) { Emperor_InitVar = 1; strcpy(Emperor_OccuredError, "gadgets/colorwheel.gadget"); } DateBrowserBase = OpenLibrary("gadgets/datebrowser.gadget", 0L); if(!DateBrowserBase) { Emperor_InitVar = 1; strcpy(Emperor_OccuredError, "gadgets/datebrowser.gadget"); } FuelGaugeBase = OpenLibrary("gadgets/fuelgauge.gadget", 0L); if(!FuelGaugeBase) { Emperor_InitVar = 1; strcpy(Emperor_OccuredError, "gadgets/fuelgauge.gadget"); } GetFileBase = OpenLibrary("gadgets/getfile.gadget", 0L); if(!GetFileBase) { Emperor_InitVar = 1; strcpy(Emperor_OccuredError, "gadgets/getfile.gadget"); } GetFontBase = OpenLibrary("gadgets/getfont.gadget", 0L); if(!GetFontBase) { Emperor_InitVar = 1; strcpy(Emperor_OccuredError, "gadgets/getfont.gadget"); } GetScreenModeBase = OpenLibrary("gadgets/getscreenmode.gadget", 0L); if(!GetScreenModeBase) { Emperor_InitVar = 1; strcpy(Emperor_OccuredError, "gadgets/getscreenmode.gadget"); } GradientSliderBase = OpenLibrary("gadgets/gradientslider.gadget", 0L); if(!GradientSliderBase) { Emperor_InitVar = 1; strcpy(Emperor_OccuredError, "gadgets/gradientslider.gadget"); } IntegerBase = OpenLibrary("gadgets/integer.gadget", 0L); if(!IntegerBase) { Emperor_InitVar = 1; strcpy(Emperor_OccuredError, "gadgets/integer.gadget"); } LayoutBase = OpenLibrary("gadgets/layout.gadget", 0L); if(!LayoutBase) { Emperor_InitVar = 1; strcpy(Emperor_OccuredError, "gadgets/layout.gadget"); } ListBrowserBase = OpenLibrary("gadgets/listbrowser.gadget", 0L); if(!ListBrowserBase) { Emperor_InitVar = 1; strcpy(Emperor_OccuredError, "gadgets/listbrowser.gadget"); } PaletteBase = OpenLibrary("gadgets/palette.gadget", 0L); if(!PaletteBase) { Emperor_InitVar = 1; strcpy(Emperor_OccuredError, "gadgets/palette.gadget"); } RadioButtonBase = OpenLibrary("gadgets/radiobutton.gadget", 0L); if(!RadioButtonBase) { Emperor_InitVar = 1; strcpy(Emperor_OccuredError, "gadgets/radiobutton.gadget"); } ScrollerBase = OpenLibrary("gadgets/scroller.gadget", 0L); if(!ScrollerBase) { Emperor_InitVar = 1; strcpy(Emperor_OccuredError, "gadgets/scroller.gadget"); } SliderBase = OpenLibrary("gadgets/slider.gadget", 0L); if(!SliderBase) { Emperor_InitVar = 1; strcpy(Emperor_OccuredError, "gadgets/slider.gadget"); } SpaceBase = OpenLibrary("gadgets/space.gadget", 0L); if(!SpaceBase) { Emperor_InitVar = 1; strcpy(Emperor_OccuredError, "gadgets/space.gadget"); } SpeedBarBase = OpenLibrary("gadgets/speedbar.gadget", 0L); if(!SpeedBarBase) { Emperor_InitVar = 1; strcpy(Emperor_OccuredError, "gadgets/speedbar.gadget"); } StringBase = OpenLibrary("gadgets/string.gadget", 0L); if(!StringBase) { Emperor_InitVar = 1; strcpy(Emperor_OccuredError, "gadgets/string.gadget"); } TapeDeckBase = OpenLibrary("gadgets/tapedeck.gadget", 0L); if(!TapeDeckBase) { Emperor_InitVar = 1; strcpy(Emperor_OccuredError, "gadgets/tapedeck.gadget"); } TextEditorBase = OpenLibrary("gadgets/texteditor.gadget", 0L); if(!TextEditorBase) { Emperor_InitVar = 1; strcpy(Emperor_OccuredError, "gadgets/texteditor.gadget"); } BevelBase = OpenLibrary("images/bevel.image", 0L); if(!BevelBase) { Emperor_InitVar = 1; strcpy(Emperor_OccuredError, "images/bevel.image"); } BitMapBase = OpenLibrary("images/bitmap.image", 0L); if(!BitMapBase) { Emperor_InitVar = 1; strcpy(Emperor_OccuredError, "images/bitmap.image"); } GlyphBase = OpenLibrary("images/glyph.image", 0L); if(!GlyphBase) { Emperor_InitVar = 1; strcpy(Emperor_OccuredError, "images/glyph.image"); } LabelBase = OpenLibrary("images/label.image", 0L); if(!LabelBase) { Emperor_InitVar = 1; strcpy(Emperor_OccuredError, "images/label.image"); } Catalog = OpenCatalogA(NULL, "automate8e.catalog", NULL); if(Emperor_InitVar) { strcpy(Emperor_ExceptionString, "Error during initialization:\n\n"); if(Emperor_InitVar == 1) { strcat(Emperor_ExceptionString, "Can't open Amiga-library\n\""); strcat(Emperor_ExceptionString, Emperor_OccuredError); strcat(Emperor_ExceptionString, "\"\n\nProbably you haven't got a\ncorrect installed AmigaOS system !"); } EmperorRequest_InitializationErrorRequest.es_StructSize = sizeof(struct EasyStruct); EmperorRequest_InitializationErrorRequest.es_Flags = 0L; EmperorRequest_InitializationErrorRequest.es_Title = (UBYTE *) "Program error"; EmperorRequest_InitializationErrorRequest.es_TextFormat = (UBYTE *) Emperor_ExceptionString; EmperorRequest_InitializationErrorRequest.es_GadgetFormat = (UBYTE *) "Okay"; EasyRequest(Window1, &EmperorRequest_InitializationErrorRequest, NULL, NULL); } return(Emperor_InitVar); } void Emperor_QuitProgram(void) { Emperor_CloseWindow_Window1(); if(WindowObject1) DisposeObject(WindowObject1); if(AppPort) DeleteMsgPort(AppPort); if(MsgPort) DeletePort(MsgPort); if(Menu) FreeMenus(Menu); if(vinfo) FreeVisualInfo(vinfo); if(Screen1) UnlockPubScreen(NULL, Screen1); if(Catalog) CloseCatalog(Catalog); if(LabelBase) CloseLibrary(LabelBase); if(GlyphBase) CloseLibrary(GlyphBase); if(BitMapBase) CloseLibrary(BitMapBase); if(BevelBase) CloseLibrary(BevelBase); if(TextEditorBase) CloseLibrary(TextEditorBase); if(TapeDeckBase) CloseLibrary(TapeDeckBase); if(StringBase) CloseLibrary(StringBase); if(SpeedBarBase) CloseLibrary(SpeedBarBase); if(SpaceBase) CloseLibrary(SpaceBase); if(SliderBase) CloseLibrary(SliderBase); if(ScrollerBase) CloseLibrary(ScrollerBase); if(RadioButtonBase) CloseLibrary(RadioButtonBase); if(PaletteBase) CloseLibrary(PaletteBase); if(ListBrowserBase) CloseLibrary(ListBrowserBase); if(LayoutBase) CloseLibrary(LayoutBase); if(IntegerBase) CloseLibrary(IntegerBase); if(GradientSliderBase) CloseLibrary(GradientSliderBase); if(GetScreenModeBase) CloseLibrary(GetScreenModeBase); if(GetFontBase) CloseLibrary(GetFontBase); if(GetFileBase) CloseLibrary(GetFileBase); if(FuelGaugeBase) CloseLibrary(FuelGaugeBase); if(DateBrowserBase) CloseLibrary(DateBrowserBase); if(ColorWheelBase) CloseLibrary(ColorWheelBase); if(ClickTabBase) CloseLibrary(ClickTabBase); if(ChooserBase) CloseLibrary(ChooserBase); if(CheckBoxBase) CloseLibrary(CheckBoxBase); if(ButtonBase) CloseLibrary(ButtonBase); if(RequesterBase) CloseLibrary(RequesterBase); if(WindowBase) CloseLibrary(WindowBase); if(ResourceBase) CloseLibrary(ResourceBase); if(DOSLibBase) CloseLibrary(DOSLibBase); if(ASLBase) CloseLibrary(ASLBase); if(GadToolsBase) CloseLibrary(GadToolsBase); if(LocaleBase) CloseLibrary(LocaleBase); if(IntuitionBase) CloseLibrary(IntuitionBase); exit(0); } void Emperor_CloseWindow_Window1(void) { if(os35) { if(Menu) ClearMenuStrip(Window1); DoMethod(WindowObject1, WM_CLOSE, NULL); Window1 = NULL; WindowSignals1 = 0L; } } void Emperor_IconifyWindow_Window1(void) { if(os35) { if(Menu) ClearMenuStrip(Window1); DoMethod(WindowObject1, WM_ICONIFY, NULL); } } struct Window *Emperor_OpenWindow_Window1(void) { if(os35) { Window1 = RA_OpenWindow(WindowObject1); GetAttr(WINDOW_SigMask, WindowObject1, &WindowSignals1); SetMenuStrip(Window1, Menu); Window1_ShowWindow_Event(); } return(Window1); } struct Window *Emperor_UniconifyWindow_Window1(void) { return(Emperor_OpenWindow_Window1()); } BOOL Emperor_GetMenuItemAttr(UWORD Emperor_MenuObject, UWORD Emperor_MenuFlagMask) { struct MenuItem *Emperor_MenuItem = NULL; Emperor_MenuItem = ItemAddress(Menu, Emperor_MenuObject); if(Emperor_MenuItem->Flags & Emperor_MenuFlagMask) return(TRUE); else return(FALSE); } void Emperor_SetMenuItemAttr(UWORD Emperor_MenuObject, UWORD Emperor_MenuFlagMask, BOOL Emperor_SetReset) { struct MenuItem *Emperor_MenuItem = NULL; Emperor_MenuItem = ItemAddress(Menu, Emperor_MenuObject); if(Emperor_SetReset) Emperor_MenuItem->Flags += Emperor_MenuFlagMask; else Emperor_MenuItem->Flags -= Emperor_MenuFlagMask; } STRPTR Emperor_GetGadgetAttr(struct Gadget *Emperor_GadgetName) { LONG Emperor_GadgetAttrBuffer, Emperor_GadgetCounter; STRPTR Emperor_GadgetAttrReturn = ""; Emperor_GadgetAttrBuffer = 0L; for(Emperor_GadgetCounter = 0;Emperor_GadgetCounter < 1023;Emperor_GadgetCounter++) { if(Gadget1[Emperor_GadgetCounter] == Emperor_GadgetName) { switch(Emperor_Gadgetkind1[Emperor_GadgetCounter]) { case 0: GetAttr(GA_Selected, Emperor_GadgetName, (ULONG *) &Emperor_GadgetAttrBuffer); strcpy(Emperor_GadgetAttrReturn, inttostring(Emperor_GadgetAttrBuffer)); break; case 1: GetAttr(GA_Selected, Emperor_GadgetName, (ULONG *) &Emperor_GadgetAttrBuffer); strcpy(Emperor_GadgetAttrReturn, inttostring(Emperor_GadgetAttrBuffer)); break; case 2: GetAttr(CHOOSER_Selected, Emperor_GadgetName, (ULONG *) &Emperor_GadgetAttrBuffer); strcpy(Emperor_GadgetAttrReturn, inttostring(Emperor_GadgetAttrBuffer)); break; case 3: GetAttr(CLICKTAB_Current, Emperor_GadgetName, (ULONG *) &Emperor_GadgetAttrBuffer); strcpy(Emperor_GadgetAttrReturn, inttostring(Emperor_GadgetAttrBuffer)); break; case 6: GetAttr(FUELGAUGE_Level, Emperor_GadgetName, (ULONG *) &Emperor_GadgetAttrBuffer); strcpy(Emperor_GadgetAttrReturn, inttostring(Emperor_GadgetAttrBuffer)); break; case 10: GetAttr(GRAD_CurVal, Emperor_GadgetName, (ULONG *) &Emperor_GadgetAttrBuffer); strcpy(Emperor_GadgetAttrReturn, inttostring(Emperor_GadgetAttrBuffer)); break; case 11: GetAttr(INTEGER_Number, Emperor_GadgetName, (ULONG *) &Emperor_GadgetAttrBuffer); strcpy(Emperor_GadgetAttrReturn, inttostring(Emperor_GadgetAttrBuffer)); break; case 13: GetAttr(LISTBROWSER_Selected, Emperor_GadgetName, (ULONG *) &Emperor_GadgetAttrBuffer); strcpy(Emperor_GadgetAttrReturn, inttostring(Emperor_GadgetAttrBuffer)); break; case 14: GetAttr(PALETTE_Colour, Emperor_GadgetName, (ULONG *) &Emperor_GadgetAttrBuffer); strcpy(Emperor_GadgetAttrReturn, inttostring(Emperor_GadgetAttrBuffer)); break; case 15: GetAttr(RADIOBUTTON_Selected, Emperor_GadgetName, (ULONG *) &Emperor_GadgetAttrBuffer); strcpy(Emperor_GadgetAttrReturn, inttostring(Emperor_GadgetAttrBuffer)); break; case 16: GetAttr(SCROLLER_Top, Emperor_GadgetName, (ULONG *) &Emperor_GadgetAttrBuffer); strcpy(Emperor_GadgetAttrReturn, inttostring(Emperor_GadgetAttrBuffer)); break; case 17: GetAttr(SLIDER_Level, Emperor_GadgetName, (ULONG *) &Emperor_GadgetAttrBuffer); strcpy(Emperor_GadgetAttrReturn, inttostring(Emperor_GadgetAttrBuffer)); break; case 19: GetAttr(SPEEDBAR_Selected, Emperor_GadgetName, (ULONG *) &Emperor_GadgetAttrBuffer); strcpy(Emperor_GadgetAttrReturn, inttostring(Emperor_GadgetAttrBuffer)); break; case 20: GetAttr(STRINGA_TextVal, Emperor_GadgetName, (ULONG *) &Emperor_GadgetAttrBuffer); strcpy(Emperor_GadgetAttrReturn, (char *) Emperor_GadgetAttrBuffer); break; case 22: GetAttr(GA_TEXTEDITOR_Contents, Emperor_GadgetName, (ULONG *) &Emperor_GadgetAttrBuffer); strcpy(Emperor_GadgetAttrReturn, (char *) Emperor_GadgetAttrBuffer); break; } break; } } return(Emperor_GadgetAttrReturn); } void Emperor_SetGadgetAttr(struct Gadget *Emperor_GadgetName, STRPTR Emperor_GadgetValue) { LONG Emperor_GadgetAttrBuffer, Emperor_GadgetCounter; struct Window *Emperor_Whichwindow = NULL; Emperor_GadgetAttrBuffer = 0L; for(Emperor_GadgetCounter = 0;Emperor_GadgetCounter < 1023;Emperor_GadgetCounter++) { if(Gadget1[Emperor_GadgetCounter] == Emperor_GadgetName) { Emperor_Whichwindow = Window1; switch(Emperor_Gadgetkind1[Emperor_GadgetCounter]) { case 0: Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, GA_Selected, stringtoint(Emperor_GadgetValue), TAG_DONE); break; case 1: Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, GA_Selected, stringtoint(Emperor_GadgetValue), TAG_DONE); break; case 2: Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, CHOOSER_Selected, stringtoint(Emperor_GadgetValue), TAG_DONE); break; case 3: Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, CLICKTAB_Current, stringtoint(Emperor_GadgetValue), TAG_DONE); break; case 6: Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, FUELGAUGE_Level, stringtoint(Emperor_GadgetValue), TAG_DONE); break; case 10: Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, INTEGER_Number, stringtoint(Emperor_GadgetValue), TAG_DONE); break; case 11: Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, GRAD_CurVal, stringtoint(Emperor_GadgetValue), TAG_DONE); break; case 13: Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, LISTBROWSER_Selected, stringtoint(Emperor_GadgetValue), TAG_DONE); break; case 14: Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, PALETTE_Colour, stringtoint(Emperor_GadgetValue), TAG_DONE); break; case 15: Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, RADIOBUTTON_Selected, stringtoint(Emperor_GadgetValue), TAG_DONE); break; case 16: Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, SCROLLER_Top, stringtoint(Emperor_GadgetValue), TAG_DONE); break; case 17: Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, SLIDER_Level, stringtoint(Emperor_GadgetValue), TAG_DONE); break; case 19: Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, SPEEDBAR_Selected, Emperor_GadgetValue, TAG_DONE); break; case 20: Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, STRINGA_TextVal, Emperor_GadgetValue, TAG_DONE); break; case 22: Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, GA_TEXTEDITOR_Contents, Emperor_GadgetValue, TAG_DONE); break; } if(Emperor_GadgetAttrBuffer) RefreshGList(Emperor_GadgetName, Emperor_Whichwindow, NULL, 1); break; } } } STRPTR Emperor_GetGadgetAttrComplex(struct Gadget *Emperor_GadgetName, ULONG Emperor_GadgetFlagMask) { LONG Emperor_GadgetAttrBuffer, Emperor_GadgetCounter; STRPTR Emperor_GadgetAttrReturn = ""; Emperor_GadgetAttrBuffer = 0L; for(Emperor_GadgetCounter = 0;Emperor_GadgetCounter < 1023;Emperor_GadgetCounter++) { if(Gadget1[Emperor_GadgetCounter] == Emperor_GadgetName) { GetAttr(Emperor_GadgetFlagMask, Emperor_GadgetName, (ULONG *) &Emperor_GadgetAttrBuffer); switch(Emperor_Gadgetkind1[Emperor_GadgetCounter]) { case 0: if(Emperor_GadgetFlagMask == GA_Text) strcpy(Emperor_GadgetAttrReturn, (char *) Emperor_GadgetAttrBuffer); else strcpy(Emperor_GadgetAttrReturn, inttostring(Emperor_GadgetAttrBuffer)); break; case 1: if(Emperor_GadgetFlagMask == GA_Text) strcpy(Emperor_GadgetAttrReturn, (char *) Emperor_GadgetAttrBuffer); else strcpy(Emperor_GadgetAttrReturn, inttostring(Emperor_GadgetAttrBuffer)); break; case 2: if(Emperor_GadgetFlagMask == CHOOSER_Title) strcpy(Emperor_GadgetAttrReturn, (char *) Emperor_GadgetAttrBuffer); else strcpy(Emperor_GadgetAttrReturn, inttostring(Emperor_GadgetAttrBuffer)); break; case 3: strcpy(Emperor_GadgetAttrReturn, inttostring(Emperor_GadgetAttrBuffer)); break; case 4: if(Emperor_GadgetFlagMask == WHEEL_Abbrv) strcpy(Emperor_GadgetAttrReturn, (char *) Emperor_GadgetAttrBuffer); else { if((Emperor_GadgetFlagMask == WHEEL_Red) || (Emperor_GadgetFlagMask == WHEEL_Green) || (Emperor_GadgetFlagMask == WHEEL_Blue) || (Emperor_GadgetFlagMask == WHEEL_Hue) || (Emperor_GadgetFlagMask == WHEEL_Saturation) || (Emperor_GadgetFlagMask == WHEEL_Brightness)) strcpy(Emperor_GadgetAttrReturn, inttostring(Emperor_GadgetAttrBuffer >> 24)); else strcpy(Emperor_GadgetAttrReturn, inttostring(Emperor_GadgetAttrBuffer)); } break; case 5: if(Emperor_GadgetFlagMask == DATEBROWSER_DayTitles) strcpy(Emperor_GadgetAttrReturn, (char *) Emperor_GadgetAttrBuffer); else strcpy(Emperor_GadgetAttrReturn, inttostring(Emperor_GadgetAttrBuffer)); break; case 6: if(Emperor_GadgetFlagMask == GA_Text) strcpy(Emperor_GadgetAttrReturn, (char *) Emperor_GadgetAttrBuffer); else strcpy(Emperor_GadgetAttrReturn, inttostring(Emperor_GadgetAttrBuffer)); break; case 7: if((Emperor_GadgetFlagMask == GETFILE_TitleText) || (Emperor_GadgetFlagMask == GETFILE_File) || (Emperor_GadgetFlagMask == GETFILE_Drawer) || (Emperor_GadgetFlagMask == GETFILE_FullFile) || (Emperor_GadgetFlagMask == GETFILE_Pattern) || (Emperor_GadgetFlagMask == GETFILE_AcceptPattern) || (Emperor_GadgetFlagMask == GETFILE_RejectPattern)) strcpy(Emperor_GadgetAttrReturn, (char *) Emperor_GadgetAttrBuffer); else strcpy(Emperor_GadgetAttrReturn, inttostring(Emperor_GadgetAttrBuffer)); break; case 8: if(Emperor_GadgetFlagMask == GETFONT_TitleText) strcpy(Emperor_GadgetAttrReturn, (char *) Emperor_GadgetAttrBuffer); else strcpy(Emperor_GadgetAttrReturn, inttostring(Emperor_GadgetAttrBuffer)); break; case 9: if(Emperor_GadgetFlagMask == GETSCREENMODE_TitleText) strcpy(Emperor_GadgetAttrReturn, (char *) Emperor_GadgetAttrBuffer); else strcpy(Emperor_GadgetAttrReturn, inttostring(Emperor_GadgetAttrBuffer)); break; case 10: strcpy(Emperor_GadgetAttrReturn, inttostring(Emperor_GadgetAttrBuffer)); break; case 11: strcpy(Emperor_GadgetAttrReturn, inttostring(Emperor_GadgetAttrBuffer)); break; case 13: strcpy(Emperor_GadgetAttrReturn, inttostring(Emperor_GadgetAttrBuffer)); break; case 14: strcpy(Emperor_GadgetAttrReturn, inttostring(Emperor_GadgetAttrBuffer)); break; case 15: strcpy(Emperor_GadgetAttrReturn, inttostring(Emperor_GadgetAttrBuffer)); break; case 16: strcpy(Emperor_GadgetAttrReturn, inttostring(Emperor_GadgetAttrBuffer)); break; case 17: strcpy(Emperor_GadgetAttrReturn, inttostring(Emperor_GadgetAttrBuffer)); break; case 18: strcpy(Emperor_GadgetAttrReturn, inttostring(Emperor_GadgetAttrBuffer)); break; case 19: strcpy(Emperor_GadgetAttrReturn, inttostring(Emperor_GadgetAttrBuffer)); break; case 20: if((Emperor_GadgetFlagMask == STRINGA_TextVal) || (Emperor_GadgetFlagMask == STRINGA_Buffer) || (Emperor_GadgetFlagMask == STRINGA_UndoBuffer) || (Emperor_GadgetFlagMask == STRINGA_WorkBuffer)) strcpy(Emperor_GadgetAttrReturn, (char *) Emperor_GadgetAttrBuffer); else strcpy(Emperor_GadgetAttrReturn, inttostring(Emperor_GadgetAttrBuffer)); break; case 21: strcpy(Emperor_GadgetAttrReturn, inttostring(Emperor_GadgetAttrBuffer)); break; case 22: if(Emperor_GadgetFlagMask == GA_TEXTEDITOR_Contents) strcpy(Emperor_GadgetAttrReturn, (char *) Emperor_GadgetAttrBuffer); else strcpy(Emperor_GadgetAttrReturn, inttostring(Emperor_GadgetAttrBuffer)); break; } break; } } return(Emperor_GadgetAttrReturn); } void Emperor_SetGadgetAttrComplex(struct Gadget *Emperor_GadgetName, ULONG Emperor_GadgetFlagMask, STRPTR Emperor_GadgetValue) { LONG Emperor_GadgetAttrBuffer, Emperor_GadgetCounter; struct Window *Emperor_Whichwindow = NULL; Emperor_GadgetAttrBuffer = 0L; for(Emperor_GadgetCounter = 0;Emperor_GadgetCounter < 255;Emperor_GadgetCounter++) { if(Gadget1[Emperor_GadgetCounter] == Emperor_GadgetName) { Emperor_Whichwindow = Window1; switch(Emperor_Gadgetkind1[Emperor_GadgetCounter]) { case 0: if(Emperor_GadgetFlagMask == GA_Text) Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, GA_Text, Emperor_GadgetValue, TAG_DONE); else Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, Emperor_GadgetFlagMask, stringtoint(Emperor_GadgetValue), TAG_DONE); break; case 1: if(Emperor_GadgetFlagMask == GA_Text) Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, GA_Text, Emperor_GadgetValue, TAG_DONE); else Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, Emperor_GadgetFlagMask, stringtoint(Emperor_GadgetValue), TAG_DONE); break; case 2: if(Emperor_GadgetFlagMask == CHOOSER_Title) Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, CHOOSER_Title, Emperor_GadgetValue, TAG_DONE); else { if(Emperor_GadgetFlagMask == CHOOSER_Labels) { SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, CHOOSER_Labels, (ULONG) ~0, TAG_DONE); if(Emperor_GadgetValue != NULL) SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, CHOOSER_Labels, Emperor_GadgetValue, TAG_DONE); Emperor_GadgetAttrBuffer = 1; } else Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, Emperor_GadgetFlagMask, stringtoint(Emperor_GadgetValue), TAG_DONE); } break; case 3: if(Emperor_GadgetFlagMask == CLICKTAB_Labels) { SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, CLICKTAB_Labels, (ULONG) ~0, TAG_DONE); if(Emperor_GadgetValue != NULL) SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, CLICKTAB_Labels, Emperor_GadgetValue, TAG_DONE); Emperor_GadgetAttrBuffer = 1; } else Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, Emperor_GadgetFlagMask, stringtoint(Emperor_GadgetValue), TAG_DONE); break; case 4: if(Emperor_GadgetFlagMask == WHEEL_Abbrv) Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, WHEEL_Abbrv, Emperor_GadgetValue, TAG_DONE); else { if((Emperor_GadgetFlagMask == WHEEL_Red) || (Emperor_GadgetFlagMask == WHEEL_Green) || (Emperor_GadgetFlagMask == WHEEL_Blue) || (Emperor_GadgetFlagMask == WHEEL_Hue) || (Emperor_GadgetFlagMask == WHEEL_Saturation) || (Emperor_GadgetFlagMask == WHEEL_Brightness)) Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, Emperor_GadgetFlagMask, stringtoint(Emperor_GadgetValue) << 24, TAG_DONE); else Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, Emperor_GadgetFlagMask, stringtoint(Emperor_GadgetValue), TAG_DONE); } break; case 5: if(Emperor_GadgetFlagMask == DATEBROWSER_DayTitles) Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, DATEBROWSER_DayTitles, Emperor_GadgetValue, TAG_DONE); else Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, Emperor_GadgetFlagMask, stringtoint(Emperor_GadgetValue), TAG_DONE); break; case 6: if(Emperor_GadgetFlagMask == GA_Text) Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, GA_Text, Emperor_GadgetValue, TAG_DONE); else Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, Emperor_GadgetFlagMask, stringtoint(Emperor_GadgetValue), TAG_DONE); break; case 7: if((Emperor_GadgetFlagMask == GETFILE_TitleText) || (Emperor_GadgetFlagMask == GETFILE_File) || (Emperor_GadgetFlagMask == GETFILE_Drawer) || (Emperor_GadgetFlagMask == GETFILE_FullFile) || (Emperor_GadgetFlagMask == GETFILE_Pattern) || (Emperor_GadgetFlagMask == GETFILE_AcceptPattern) || (Emperor_GadgetFlagMask == GETFILE_RejectPattern)) Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, Emperor_GadgetFlagMask, Emperor_GadgetValue, TAG_DONE); else Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, Emperor_GadgetFlagMask, stringtoint(Emperor_GadgetValue), TAG_DONE); break; case 8: if(Emperor_GadgetFlagMask == GETFONT_TitleText) Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, GETFONT_TitleText, Emperor_GadgetValue, TAG_DONE); else Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, Emperor_GadgetFlagMask, stringtoint(Emperor_GadgetValue), TAG_DONE); break; case 9: if(Emperor_GadgetFlagMask == GETSCREENMODE_TitleText) Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, GETSCREENMODE_TitleText, Emperor_GadgetValue, TAG_DONE); else Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, Emperor_GadgetFlagMask, stringtoint(Emperor_GadgetValue), TAG_DONE); break; case 10: Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, Emperor_GadgetFlagMask, stringtoint(Emperor_GadgetValue), TAG_DONE); break; case 11: Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, Emperor_GadgetFlagMask, stringtoint(Emperor_GadgetValue), TAG_DONE); break; case 13: if(Emperor_GadgetFlagMask == LISTBROWSER_Labels) { SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, LISTBROWSER_Labels, (ULONG) ~0, TAG_DONE); if(Emperor_GadgetValue != NULL) SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, LISTBROWSER_Labels, Emperor_GadgetValue, TAG_DONE); Emperor_GadgetAttrBuffer = 1; } else { if(Emperor_GadgetFlagMask == LISTBROWSER_ColumnInfo) { SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, LISTBROWSER_ColumnInfo, (ULONG) ~0, TAG_DONE); if(Emperor_GadgetValue != NULL) SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, LISTBROWSER_ColumnInfo, Emperor_GadgetValue, TAG_DONE); Emperor_GadgetAttrBuffer = 1; } else Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, Emperor_GadgetFlagMask, stringtoint(Emperor_GadgetValue), TAG_DONE); } break; case 14: Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, Emperor_GadgetFlagMask, stringtoint(Emperor_GadgetValue), TAG_DONE); break; case 15: if(Emperor_GadgetFlagMask == RADIOBUTTON_Labels) { SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, RADIOBUTTON_Labels, (ULONG) ~0, TAG_DONE); if(Emperor_GadgetValue != NULL) SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, RADIOBUTTON_Labels, Emperor_GadgetValue, TAG_DONE); Emperor_GadgetAttrBuffer = 1; } else Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, Emperor_GadgetFlagMask, stringtoint(Emperor_GadgetValue), TAG_DONE); break; case 16: Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, Emperor_GadgetFlagMask, stringtoint(Emperor_GadgetValue), TAG_DONE); break; case 17: Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, Emperor_GadgetFlagMask, stringtoint(Emperor_GadgetValue), TAG_DONE); break; case 18: Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, Emperor_GadgetFlagMask, stringtoint(Emperor_GadgetValue), TAG_DONE); break; case 19: Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, Emperor_GadgetFlagMask, stringtoint(Emperor_GadgetValue), TAG_DONE); break; case 20: if((Emperor_GadgetFlagMask == STRINGA_TextVal) || (Emperor_GadgetFlagMask == STRINGA_Buffer) || (Emperor_GadgetFlagMask == STRINGA_UndoBuffer) || (Emperor_GadgetFlagMask == STRINGA_WorkBuffer)) Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, Emperor_GadgetFlagMask, Emperor_GadgetValue, TAG_DONE); else Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, Emperor_GadgetFlagMask, stringtoint(Emperor_GadgetValue), TAG_DONE); break; case 21: Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, Emperor_GadgetFlagMask, stringtoint(Emperor_GadgetValue), TAG_DONE); break; case 22: if(Emperor_GadgetFlagMask == GA_TEXTEDITOR_Contents) Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, GA_TEXTEDITOR_Contents, Emperor_GadgetValue, TAG_DONE); else Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, Emperor_GadgetFlagMask, stringtoint(Emperor_GadgetValue), TAG_DONE); break; } if(Emperor_GadgetAttrBuffer) RefreshGList(Emperor_GadgetName, Emperor_Whichwindow, NULL, 1); break; } } } BOOL Emperor_GetGadgetDisabledAttr(struct Gadget *Emperor_GadgetName) { LONG Emperor_GadgetAttrBuffer, Emperor_GadgetCounter; BOOL Emperor_GadgetAttrReturn; Emperor_GadgetAttrBuffer = 0L; for(Emperor_GadgetCounter = 0;Emperor_GadgetCounter < 255;Emperor_GadgetCounter++) { if(Gadget1[Emperor_GadgetCounter] == Emperor_GadgetName) { GetAttr(GA_Disabled, Emperor_GadgetName, (ULONG *) &Emperor_GadgetAttrBuffer); break; } } Emperor_GadgetAttrReturn = Emperor_GadgetAttrBuffer; return(Emperor_GadgetAttrReturn); } void Emperor_SetGadgetDisabledAttr(struct Gadget *Emperor_GadgetName, BOOL Emperor_GadgetValue) { LONG Emperor_GadgetAttrBuffer, Emperor_GadgetCounter; struct Window *Emperor_Whichwindow = NULL; Emperor_GadgetAttrBuffer = 0L; for(Emperor_GadgetCounter = 0;Emperor_GadgetCounter < 255;Emperor_GadgetCounter++) { if(Gadget1[Emperor_GadgetCounter] == Emperor_GadgetName) { Emperor_Whichwindow = Window1; Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, GA_Disabled, Emperor_GadgetValue, TAG_DONE); if(Emperor_GadgetAttrBuffer) RefreshGList(Emperor_GadgetName, Emperor_Whichwindow, NULL, 1); break; } } } BOOL Emperor_GetGadgetAttrReadOnly(struct Gadget *Emperor_GadgetName) { LONG Emperor_GadgetAttrBuffer, Emperor_GadgetCounter; BOOL Emperor_GadgetAttrReturn; Emperor_GadgetAttrBuffer = 0L; for(Emperor_GadgetCounter = 0;Emperor_GadgetCounter < 255;Emperor_GadgetCounter++) { if(Gadget1[Emperor_GadgetCounter] == Emperor_GadgetName) { GetAttr(GA_ReadOnly, Emperor_GadgetName, (ULONG *) &Emperor_GadgetAttrBuffer); break; } } Emperor_GadgetAttrReturn = Emperor_GadgetAttrBuffer; return(Emperor_GadgetAttrReturn); } void Emperor_SetGadgetReadOnlyAttr(struct Gadget *Emperor_GadgetName, BOOL Emperor_GadgetValue) { LONG Emperor_GadgetAttrBuffer, Emperor_GadgetCounter; struct Window *Emperor_Whichwindow = NULL; Emperor_GadgetAttrBuffer = 0L; for(Emperor_GadgetCounter = 0;Emperor_GadgetCounter < 255;Emperor_GadgetCounter++) { if(Gadget1[Emperor_GadgetCounter] == Emperor_GadgetName) { Emperor_Whichwindow = Window1; Emperor_GadgetAttrBuffer = SetGadgetAttrs(Emperor_GadgetName, Emperor_Whichwindow, NULL, GA_ReadOnly, Emperor_GadgetValue, TAG_DONE); if(Emperor_GadgetAttrBuffer) RefreshGList(Emperor_GadgetName, Emperor_Whichwindow, NULL, 1); break; } } } void Emperor_ActivateGadget(struct Gadget *Emperor_GadgetName) { LONG Emperor_GadgetCounter; struct Window *Emperor_Whichwindow = NULL; for(Emperor_GadgetCounter = 0;Emperor_GadgetCounter < 255;Emperor_GadgetCounter++) { if(Gadget1[Emperor_GadgetCounter] == Emperor_GadgetName) { Emperor_Whichwindow = Window1; break; } } ActivateGadget(Emperor_GadgetName, Emperor_Whichwindow, NULL); } void Emperor_RethinkLayout(struct Gadget *Emperor_GadgetName) { LONG Emperor_GadgetCounter; struct Window *Emperor_Whichwindow = NULL; for(Emperor_GadgetCounter = 0;Emperor_GadgetCounter < 255;Emperor_GadgetCounter++) { if(Gadget1[Emperor_GadgetCounter] == Emperor_GadgetName) { Emperor_Whichwindow = Window1; break; } } RethinkLayout(Emperor_GadgetName, Emperor_Whichwindow, NULL, TRUE); } void Emperor_RefreshGList(struct Gadget *Emperor_GadgetName, WORD Emperor_NumberRefresh) { LONG Emperor_GadgetCounter; struct Window *Emperor_Whichwindow = NULL; for(Emperor_GadgetCounter = 0;Emperor_GadgetCounter < 255;Emperor_GadgetCounter++) { if(Gadget1[Emperor_GadgetCounter] == Emperor_GadgetName) { Emperor_Whichwindow = Window1; break; } } RefreshGList(Emperor_GadgetName, Emperor_Whichwindow, NULL, Emperor_NumberRefresh); } void Emperor_ChangeWindowPosition(struct Window *Emperor_ApplicationWindow, WORD Emperor_Left, WORD Emperor_Top) { WORD Emperor_Width, Emperor_Height; Emperor_Width = Emperor_ApplicationWindow->Width; Emperor_Height = Emperor_ApplicationWindow->Height; ChangeWindowBox(Emperor_ApplicationWindow, Emperor_Left, Emperor_Top, Emperor_Width, Emperor_Height); } void Emperor_ChangeWindowSize(struct Window *Emperor_ApplicationWindow, WORD Emperor_Width, WORD Emperor_Height) { WORD Emperor_Left, Emperor_Top; Emperor_Left = Emperor_ApplicationWindow->LeftEdge; Emperor_Top = Emperor_ApplicationWindow->TopEdge; ChangeWindowBox(Emperor_ApplicationWindow, Emperor_Left, Emperor_Top, Emperor_Width, Emperor_Height); } void Emperor_SetWindowBusyPointer(struct Window *Emperor_ApplicationWindow, BOOL Emperor_SetReset) { if(Emperor_SetReset) SetWindowPointer(Emperor_ApplicationWindow, WA_BusyPointer, TRUE, WA_PointerDelay, TRUE, TAG_DONE); else SetWindowPointer(Emperor_ApplicationWindow, TAG_DONE); } void Emperor_SetWindowTitle(struct Window *Emperor_ApplicationWindow, STRPTR Emperor_Title) { SetWindowTitles(Emperor_ApplicationWindow, (UBYTE *) Emperor_Title, ((UBYTE *) ~0)); } void Emperor_SetScreenTitle(struct Window *Emperor_ApplicationWindow, STRPTR Emperor_Title) { SetWindowTitles(Emperor_ApplicationWindow, ((UBYTE *) ~0), (UBYTE *) Emperor_Title); } void Emperor_AllocChooserNode(struct List *Emperor_List, char **Emperor_Labels, WORD *Emperor_Attributes) { WORD Emperor_Counter1 = 0; struct Node *Emperor_Node; if(os35) { NewList(Emperor_List); while(*Emperor_Labels) { Emperor_Node = AllocChooserNode(CNA_Text, *Emperor_Labels, CNA_Disabled, Emperor_Attributes[Emperor_Counter1], CNA_ReadOnly, Emperor_Attributes[Emperor_Counter1 + 1], TAG_DONE); AddTail(Emperor_List, Emperor_Node); Emperor_Labels++; Emperor_Counter1 += 12; } } } void Emperor_AllocClicktabNode(struct List *Emperor_List, char **Emperor_Labels, WORD *Emperor_Attributes) { WORD Emperor_Counter1 = 0, Emperor_Counter2 = 0; struct Node *Emperor_Node; if(os35) { NewList(Emperor_List); while(*Emperor_Labels) { Emperor_Node = AllocClickTabNode(TNA_Text, *Emperor_Labels, TNA_Disabled, Emperor_Attributes[Emperor_Counter1], TNA_Number, Emperor_Counter2, TAG_DONE); AddTail(Emperor_List, Emperor_Node); Emperor_Labels++; Emperor_Counter1 += 12; Emperor_Counter2++; } } } void Emperor_AllocListbrowserNode(struct List *Emperor_List, char **Emperor_Labels, WORD *Emperor_Attributes) { WORD Emperor_Counter1 = 0, Emperor_Counter2 = 0; struct Node *Emperor_Node; if(os35) { NewList(Emperor_List); while(*Emperor_Labels) { Emperor_Counter2 = 0; if(Emperor_Attributes[Emperor_Counter1 + 1]) Emperor_Counter2 += 1; if(Emperor_Attributes[Emperor_Counter1 + 2]) Emperor_Counter2 += 4; if(Emperor_Attributes[Emperor_Counter1 + 3]) Emperor_Counter2 += 8; if(Emperor_Attributes[Emperor_Counter1 + 4]) Emperor_Counter2 += 16; Emperor_Node = AllocListBrowserNode(1, LBNCA_Text, *Emperor_Labels, LBNCA_CopyText, TRUE, LBNA_Generation, Emperor_Attributes[Emperor_Counter1 + 10], LBNA_Column, Emperor_Attributes[Emperor_Counter1 + 11], LBNA_Flags, Emperor_Counter2, LBNA_Selected, Emperor_Attributes[Emperor_Counter1 + 5], LBNA_CheckBox, Emperor_Attributes[Emperor_Counter1 + 6], LBNA_Checked, Emperor_Attributes[Emperor_Counter1 + 7], TAG_DONE); AddTail(Emperor_List, Emperor_Node); Emperor_Labels++; Emperor_Counter1 += 12; } } } void Emperor_AllocRadiobuttonNode(struct List *Emperor_List, char **Emperor_Labels, WORD *Emperor_Attributes) { struct Node *Emperor_Node; if(os35) { NewList(Emperor_List); while(*Emperor_Labels) { Emperor_Node = AllocRadioButtonNode(1, RBNA_Labels, *Emperor_Labels, TAG_DONE); AddTail(Emperor_List, Emperor_Node); Emperor_Labels++; } } } ULONG stringlength(STRPTR Emperor_StringBuffer) { ULONG Emperor_Counter = 0; while(Emperor_StringBuffer[Emperor_Counter] != NULL) Emperor_Counter++; return(Emperor_Counter); } LONG stringtoint(STRPTR Emperor_StringBuffer) { return(atol(Emperor_StringBuffer)); } DOUBLE stringtofloat(STRPTR Emperor_StringBuffer) { return(atof(Emperor_StringBuffer)); } STRPTR inttostring(LONG Emperor_NumberBuffer1) { LONG Emperor_NumberBuffer2; BYTE Emperor_NumberLength = 0; BYTE Emperor_Counter = 0; char *Emperor_ReturnBuffer = "abcdefghij"; strcpy(Emperor_ReturnBuffer, ""); Emperor_ReturnBuffer[0] = NULL; if(Emperor_NumberBuffer1 < 0) { strcpy(Emperor_ReturnBuffer, "-"); Emperor_NumberBuffer1 = -Emperor_NumberBuffer1; } if(Emperor_NumberBuffer1 > 0) Emperor_NumberLength = 1; if(Emperor_NumberBuffer1/10 > 0) Emperor_NumberLength = 2; if(Emperor_NumberBuffer1/100 > 0) Emperor_NumberLength = 3; if(Emperor_NumberBuffer1/1000 > 0) Emperor_NumberLength = 4; if(Emperor_NumberBuffer1/10000 > 0) Emperor_NumberLength = 5; if(Emperor_NumberBuffer1/100000 > 0) Emperor_NumberLength = 6; if(Emperor_NumberBuffer1/1000000 > 0) Emperor_NumberLength = 7; if(Emperor_NumberBuffer1/10000000 > 0) Emperor_NumberLength = 8; if(Emperor_NumberBuffer1/100000000 > 0) Emperor_NumberLength = 9; if(Emperor_NumberBuffer1 == 0) strcpy(Emperor_ReturnBuffer, "0"); else { Emperor_Counter = Emperor_NumberLength; for(;Emperor_Counter > 0;Emperor_Counter--) { if(Emperor_Counter == 9) Emperor_NumberBuffer2 = Emperor_NumberBuffer1/100000000; if(Emperor_Counter == 8) Emperor_NumberBuffer2 = Emperor_NumberBuffer1/10000000; if(Emperor_Counter == 7) Emperor_NumberBuffer2 = Emperor_NumberBuffer1/1000000; if(Emperor_Counter == 6) Emperor_NumberBuffer2 = Emperor_NumberBuffer1/100000; if(Emperor_Counter == 5) Emperor_NumberBuffer2 = Emperor_NumberBuffer1/10000; if(Emperor_Counter == 4) Emperor_NumberBuffer2 = Emperor_NumberBuffer1/1000; if(Emperor_Counter == 3) Emperor_NumberBuffer2 = Emperor_NumberBuffer1/100; if(Emperor_Counter == 2) Emperor_NumberBuffer2 = Emperor_NumberBuffer1/10; if(Emperor_Counter == 1) Emperor_NumberBuffer2 = Emperor_NumberBuffer1; if(Emperor_NumberBuffer2 == 0) strcat(Emperor_ReturnBuffer, "0"); if(Emperor_NumberBuffer2 == 1) strcat(Emperor_ReturnBuffer, "1"); if(Emperor_NumberBuffer2 == 2) strcat(Emperor_ReturnBuffer, "2"); if(Emperor_NumberBuffer2 == 3) strcat(Emperor_ReturnBuffer, "3"); if(Emperor_NumberBuffer2 == 4) strcat(Emperor_ReturnBuffer, "4"); if(Emperor_NumberBuffer2 == 5) strcat(Emperor_ReturnBuffer, "5"); if(Emperor_NumberBuffer2 == 6) strcat(Emperor_ReturnBuffer, "6"); if(Emperor_NumberBuffer2 == 7) strcat(Emperor_ReturnBuffer, "7"); if(Emperor_NumberBuffer2 == 8) strcat(Emperor_ReturnBuffer, "8"); if(Emperor_NumberBuffer2 == 9) strcat(Emperor_ReturnBuffer, "9"); if(Emperor_Counter == 9) Emperor_NumberBuffer1 -= Emperor_NumberBuffer2*100000000; if(Emperor_Counter == 8) Emperor_NumberBuffer1 -= Emperor_NumberBuffer2*10000000; if(Emperor_Counter == 7) Emperor_NumberBuffer1 -= Emperor_NumberBuffer2*1000000; if(Emperor_Counter == 6) Emperor_NumberBuffer1 -= Emperor_NumberBuffer2*100000; if(Emperor_Counter == 5) Emperor_NumberBuffer1 -= Emperor_NumberBuffer2*10000; if(Emperor_Counter == 4) Emperor_NumberBuffer1 -= Emperor_NumberBuffer2*1000; if(Emperor_Counter == 3) Emperor_NumberBuffer1 -= Emperor_NumberBuffer2*100; if(Emperor_Counter == 2) Emperor_NumberBuffer1 -= Emperor_NumberBuffer2*10; if(Emperor_Counter == 1) Emperor_NumberBuffer1 -= Emperor_NumberBuffer2; } } return(Emperor_ReturnBuffer); } #include <automate8e.h>